home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / module.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  1.0 KB  |  37 lines
  1.  
  2. static object LI2();
  3. static object LI1();
  4. #define VMB1 register object *base=vs_top;
  5. #define VMS1  register object *sup=vs_top+4;vs_top=sup;
  6. #define VMV1 vs_reserve(4);
  7. #define VMR1(VMT1) vs_top=base ; return(VMT1);
  8. static object LI2();
  9. #define VMB2 register object *base=vs_top; object Vcs[2];
  10. #define VMS2  register object *sup=vs_top+5;vs_top=sup;
  11. #define VMV2 vs_reserve(5);
  12. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  13. static object LI3();
  14. #define VMB3 register object *base=vs_top;
  15. #define VMS3  register object *sup=vs_top+2;vs_top=sup;
  16. #define VMV3 vs_reserve(2);
  17. #define VMR3(VMT3) vs_top=base ; return(VMT3);
  18. static object LI4();
  19. #define VMB4 register object *base=vs_top;
  20. #define VMS4  register object *sup=vs_top+1;vs_top=sup;
  21. #define VMV4 vs_reserve(1);
  22. #define VMR4(VMT4) vs_top=base ; return(VMT4);
  23. #define VM4 1
  24. #define VM3 2
  25. #define VM2 5
  26. #define VM1 4
  27. static char * VVi[19]={
  28. #define Cdata VV[18]
  29. (char *)(LI1),
  30. (char *)(LI2),
  31. (char *)(LI3),
  32. (char *)(LI4)
  33. };
  34. #define VV ((object *)VVi)
  35. static  LnkT12() ;
  36. static  (*Lnk12)() = LnkT12;
  37.